home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 11
/
Cream of the Crop 11-1.iso
/
utility
/
pwg_key.zip
/
PWMAKE.WCX
(
.txt
)
< prev
next >
Wrap
Wildcat! WCX
|
1995-12-05
|
3KB
|
136 lines
'! Decompiled with wccNosy version 4.20f (freeware)
'! Input File: in.wcx 3189 bytes 11/10/122 07:45:14pm
'! Code Segment Size :1201 bytes
'! Data Segment Size :4506 bytes
'! String Segment Size:1988 bytes
'! Compiled with WCC version 4.11
Type Type26
s0 As String*4
s4 As String*9
End Type
Dim i4463 As Integer
Dim i4465 As Integer
Dim i4467 As Integer
Dim w4469 As Word
Dim w4471 As Word
Dim s4475 As String
Dim t26_4479 As Type26
Dim s4492 As String
Dim s4496 As String
Dim s4500 As String
Dim i4504 As Integer
Dim l65530_ As Long
Dim i65534_ As Integer
i4467 = 0
w4469 = 0
w4471 = 0
i4463 = FreeFile
i4465 = FreeFile
s4492 = ".\"
i4504 = 0
Cls
Print " M*E*G*A - Key"
Print " A PassWord Generation Kit"
Print " Copyright ⌐1995, Stephen Gose."
Print " All Rights Reserved."
Print ""
s4496 = s4492 + "MEGA.KEY"
If Not Exists("MegaSrc.Key") Then
Open s4496 For Input As 1
187 Do Until EOF(1)
Input #1, s4475
Loop
211 If s4475 = "UNREGISTERED" Then
Print ""
Print " To register this program, it will cost you the price of a"
Print "one minute long-distance (?) call (assumming that you ARE ;)."
Print " Just call MegaComm(sm) BBS at (540) 829-Big1 and fill out"
Print "the online-registration form. It's simple, easy, and demonstates"
Print "how this program can facilitate your registration process."
Print " It's totally automated....and will download your *.Key while"
Print "you're on-line."
Print ""
Print " All of the PUBLIC DOMAIN Source code is already included"
Print "in this kit. However, if you would like the source code for"
Print "THIS PROGRAM--in WCCode and QuickBasic, and COMPLETE User"
Print "Documentation then:"
Print " 1) Enter our On-Line Sales Catalog and order those items."
Print " OR 2) Fill out the Order form enclosed in this package."
Print ""
Print "Thanks for sampling our program....See ya on MegaComm(sm) soon."
Else
387 If s4475 = "REGISTERED" Then
Print "Thanks for Supporting the ShareWare Concept."
Print ""
Print " If you would like to have the source code for THIS PROGRAM"
Print "in WCCode and QuickBasic and COMPLETE User Documentation, then:"
Print ""
Print " 1) Go to MegaComm(sm) On-Line Shopping Mall and place your"
Print " order......OR"
Print " 2) Fill out the enclosed Order form and Mail to"
Print ""
Print " Treesahran Industries"
Print " ATTN: MegaComm(sm) BBS Sales"
Print " 336 Lafayette Ridge"
Print " Culpeper, VA 22701-3963"
Else
527 Print "Your control file is violated . . ."
Print "Please call MegaComm(sm) BBS (540) 829-Big1"
Print "to obtain a valid registration key."
Print ""
Print "Remember! a simple call registers this program..."
Print ""
Print "If you'd like the source code for THIS program"
Print "please mail the Order form or Order from our"
Print "On-line Shopping Mall."
WaitEnter
End
End If
End If
End If
612 i4504 = InputNumber("How many passwords would you like to make? (max = 999) ", 1, 999)
If i4504 <= 0 Then
i4504 = 1
Else
657 If i4504 > 999 Then
i4504 = 999
End If
End If
681
705 For i4467 = 1 To i4504 Step 1
Shell "RP.COM > PWTemp.txt", ""
Reset
s4496 = s4492 + "PWTemp.txt"
Open s4496 For Input As i4463
Input #i4463, t26_4479.s4
Print "Creating New Password."
Delay 0.5
Reset
If i4467 < 10 Then
t26_4479.s0 = "00" + Str(i4467) + ","
End If
887 If i4467 > 9 And i4467 < 100 Then
t26_4479.s0 = "0" + Str(i4467) + ","
End If
941 If i4467 > 99 Then
t26_4479.s0 = Str(i4467) + ","
End If
977 Print Trim(t26_4479.s0) + ": " + Trim(t26_4479.s4)
s4500 = s4492 + "PWord.dbf"
Open s4500 For Append As i4465
Print #i4465, t26_4479.s0;
Print #i4465, t26_4479.s4
Print "Writing " + t26_4479.s0 + ": " + t26_4479.s4
Delay 0.5
Reset
Next
1151 Reset
Print "PWord.DBF created."
Print "and placed in the current directory."
Delay 2
End